STMASTER
reference = "REFERENCE"
dateword = "DATE"
do prtbtch with "[ Summary Completed Jobs Schedule ]","comp_sm"
*report form wip_sum &&to print noeject
use in jchist
use in tempstck
erase "tempstck.dbf"
erase "tempstck.mdx"
set safety &saf.
use in compjobs
*	rele compsm
RETURN
PROCEDURE matrl     && DBMITEM1.ONCLICK
*-----------------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM1
*------------
LOCATION
SUPPLIER
DESCRIPTIO
STOCK_CODE
---------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM2
*-----------------------------------------------------------------
	do labour
RETURN
PROCEDURE clsjob     && DBMITEM4.ONCLICK
*-----------------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM4
*-----------------------------------------------------------------
	do closejob
RETURN
PROCEDURE exit     && DBMITEM6.ONCLICK
*-----------------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM6
*-----------------------------------------------------------------
	lvoid = costing.release()
RETURN
PROCEDURE formclose     && COSTING.ONCLOSE
*-----------------------------------------------------------------
* NAME
*   ONCLOSE - Event handler for COSTING
*-----------------------------------------------------------------
	lvoid = costing.release()
RETURN
---------------------------------------
saf = set('safety')
set safety off
use compjobs in sele()
sele compjobs
set order to job_code
if reccount() = 0
	append blank
endif
rele compcount
declare compcount[reccount(),1]
copy to array compcount field job_code
sele creditor
set order to sub_code
sele stmaster
set order to stock_code
copy with production to tempstck field stock_code,descript
LOCATION
LOCATION
SUPPLIER
SUPPLIER
DESCRIPTIO
DESCRIPTIO
STOCK_CODE
STOCK_CODE